Sub prueba_Write()
    Dim fichero As String
    fichero = "C:\Temp\NotasWrite.txt"
    Open fichero For Output As #1
    Dim campo1, campo2, campo3 As String
    campo1 = "Campo1"
    campo2 = "Campo2"
    campo3 = "campo3"
    Dim s As Variant
    s = Null
    On Error GoTo salida
    Dim x
    x = 1 / 0
salida:
    Dim i As Integer
    For i = 1 To 2
      Write #1, "Lin " & i; campo1; campo2; campo3
    Next i
    Write #1, True
    Write #1, 45, 67
    Write #1, Now
    Write #1, s
    Write #1, Err; Error
    Close #1
End Sub
